object frmPrintTest: TfrmPrintTest Left = 354 Top = 157 HelpContext = 3000 ActiveControl = edTitle BorderIcons = [biSystemMenu, biHelp] ClientHeight = 463 ClientWidth = 585 Color = clBtnFace Constraints.MinHeight = 480 Constraints.MinWidth = 585 ParentFont = True OldCreateOrder = False Position = poOwnerFormCenter PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 409 Width = 585 Height = 54 Align = alBottom TabOrder = 0 DesignSize = ( 585 54) object btnClose: TTntButton Left = 489 Top = 13 Width = 75 Height = 25 Anchors = [akRight, akBottom] ModalResult = 2 TabOrder = 0 end object btnPrint: TTntButton Left = 409 Top = 13 Width = 75 Height = 25 Anchors = [akRight, akBottom] TabOrder = 1 OnClick = btnPrintClick end end object Panel2: TPanel Left = 0 Top = 0 Width = 585 Height = 273 Align = alTop BevelOuter = bvNone TabOrder = 1 DesignSize = ( 585 273) object lblTeacher: TTntLabel Left = 16 Top = 72 Width = 49 Height = 13 Caption = 'lblTeacher' FocusControl = edTeacher end object lblTitle: TTntLabel Left = 16 Top = 24 Width = 30 Height = 13 Caption = 'lblTitle' FocusControl = edTitle end object lblCodeCaption: TTntLabel Left = 336 Top = 144 Width = 72 Height = 13 Caption = 'lblCodeCaption' end object lblCode: TTntLabel Left = 526 Top = 144 Width = 35 Height = 13 Alignment = taRightJustify Caption = 'lblCode' end object Bevel1: TBevel Left = 16 Top = 160 Width = 546 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object Bevel2: TBevel Left = 16 Top = 224 Width = 546 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object lblRemarksAbove: TTntLabel Left = 16 Top = 176 Width = 82 Height = 13 Caption = 'lblRemarksAbove' FocusControl = edRemarksAbove end object lblSchool: TTntLabel Left = 16 Top = 96 Width = 41 Height = 13 Caption = 'lblSchool' FocusControl = edSchool end object lblDate: TTntLabel Left = 16 Top = 144 Width = 33 Height = 13 Caption = 'lblDate' FocusControl = dtpDate end object lblRemarksBelow: TTntLabel Left = 16 Top = 200 Width = 79 Height = 13 Caption = 'lblRemarksBelow' FocusControl = edRemarksBelow end object lblTopic: TTntLabel Left = 16 Top = 48 Width = 35 Height = 13 Caption = 'lblTopic' FocusControl = edTopic end object lblLogo: TTntLabel Left = 16 Top = 120 Width = 33 Height = 13 Caption = 'lblLogo' FocusControl = edLogo end object sbBrowse: TTntSpeedButton Left = 314 Top = 112 Width = 23 Height = 22 OnClick = sbBrowseClick end object edTeacher: TTntEdit Left = 176 Top = 64 Width = 137 Height = 21 TabOrder = 2 OnChange = edCodeParamChange end object edTitle: TTntEdit Left = 176 Top = 16 Width = 386 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 OnChange = edCodeParamChange end object edRemarksAbove: TTntEdit Left = 176 Top = 168 Width = 386 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 6 end object edSchool: TTntEdit Left = 176 Top = 88 Width = 137 Height = 21 TabOrder = 3 OnChange = edCodeParamChange end object dtpDate: TDateTimePicker Left = 176 Top = 136 Width = 137 Height = 21 Date = 37843.938249236110000000 Time = 37843.938249236110000000 TabOrder = 5 OnChange = edCodeParamChange end object edRemarksBelow: TTntEdit Left = 176 Top = 192 Width = 386 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 7 end object edTopic: TTntEdit Left = 176 Top = 40 Width = 137 Height = 21 TabOrder = 1 OnChange = edCodeParamChange end object btnShuffle: TTntButton Left = 489 Top = 240 Width = 75 Height = 25 Anchors = [akTop, akRight] TabOrder = 8 OnClick = btnShuffleClick end object edLogo: TTntEdit Left = 176 Top = 112 Width = 137 Height = 21 TabOrder = 4 OnChange = edCodeParamChange end end object vstPrintTest: TVirtualStringTree Left = 0 Top = 273 Width = 585 Height = 136 Align = alClient DefaultNodeHeight = 26 DragMode = dmAutomatic EditDelay = 100 Header.AutoSizeIndex = 0 Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.PopupMenu = VTHeaderPopupMenu Header.Style = hsXPStyle HintMode = hmTooltip IncrementalSearch = isAll ParentShowHint = False PopupMenu = pmOptions ShowHint = True TabOrder = 2 TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages] TreeOptions.SelectionOptions = [toExtendedFocus, toRightClickSelect] OnBeforeCellPaint = vstPrintTestBeforeCellPaint OnClick = vstPrintTestClick OnCreateEditor = vstPrintTestCreateEditor OnEditCancelled = vstPrintTestEditCancelled OnEdited = vstPrintTestEdited OnEditing = vstPrintTestEditing OnGetText = vstPrintTestGetText OnPaintText = vstPrintTestPaintText OnKeyDown = vstPrintTestKeyDown Columns = < item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] Position = 0 WideText = 'Number' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] Position = 1 Width = 100 WideText = 'Question' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] Position = 2 Width = 100 WideText = 'Answer' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] Position = 3 Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] Position = 4 Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] Position = 5 Width = 100 end> WideDefaultText = '' end object VTHeaderPopupMenu: TVTHeaderPopupMenu Left = 408 Top = 200 end object pmOptions: TPopupMenu Left = 360 Top = 224 object miSetPoints: TMenuItem Caption = 'miSetPoints' OnClick = miSetPointsClick end object miSetWhiteSpace: TMenuItem Caption = 'miSetWhiteSpace' OnClick = miSetWhiteSpaceClick end end object OpenDialog: TTntOpenPictureDialog DefaultExt = 'png' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] Left = 416 Top = 232 end end